home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / CBASE102.ARJ / LSFIRST.C < prev    next >
Text File  |  1991-09-23  |  2KB  |  96 lines
  1. /*    Copyright (c) 1989 Citadel    */
  2. /*       All Rights Reserved        */
  3.  
  4. /* #ident    "@(#)lsfirst.c    1.5 - 91/09/23" */
  5.  
  6. #include <ansi.h>
  7.  
  8. /* ansi headers */
  9. #include <errno.h>
  10.  
  11. /* local headers */
  12. #include "lseq_.h"
  13.  
  14. /*man---------------------------------------------------------------------------
  15. NAME
  16.      lsfirst - first lseq record
  17.  
  18. SYNOPSIS
  19.      #include <lseq.h>
  20.  
  21.      int lsfirst(lsp)
  22.      lseq_t *lsp;
  23.  
  24. DESCRIPTION
  25.      The lsfirst function positions the cursor of lseq lsp on the
  26.      first record in that lseq.
  27.  
  28.      lsfirst will fail if one or more of the following is true:
  29.  
  30.      [EINVAL]       lsp is not a valid lseq pointer.
  31.      [LSELOCK]      lsp is not locked.
  32.      [LSENOPEN]     lsp is not open.
  33.      [LSENREC]      lsp is empty.
  34.  
  35. SEE ALSO
  36.      lslast, lsnext, lsprev, lsreccnt.
  37.  
  38. DIAGNOSTICS
  39.      Upon successful completion, a value of 0 is returned.  Otherwise,
  40.      a value of -1 is returned, and errno set to indicate the error.
  41.  
  42. ------------------------------------------------------------------------------*/
  43. #ifdef AC_PROTO
  44. int lsfirst(lseq_t *lsp)
  45. #else
  46. int lsfirst(lsp)
  47. lseq_t *lsp;
  48. #endif
  49. {
  50.     /* validate arguments */
  51.     if (!ls_valid(lsp)) {
  52.         errno = EINVAL;
  53.         return -1;
  54.     }
  55.  
  56.     /* check if not open */
  57.     if (!(lsp->flags & LSOPEN)) {
  58.         errno = LSENOPEN;
  59.         return -1;
  60.     }
  61.  
  62.     /* check locks */
  63.     if (!(lsp->flags & LSLOCKS)) {
  64.         errno = LSELOCK;
  65.         return -1;
  66.     }
  67.  
  68.     /* check if lsp is empty */
  69.     if (lsp->lshdr.reccnt == NIL) {
  70.         errno = LSENREC;
  71.         return -1;
  72.     }
  73.  
  74.     /* check if already on first record */
  75.     if (lsp->clspos == lsp->lshdr.first) {
  76.         return 0;
  77.     }
  78.  
  79.     /* set cursor to first record */
  80.     lsp->clspos = lsp->lshdr.first;
  81.  
  82.     /* read in first record */
  83.     if (lsp->clspos == NIL) {
  84.         LSEPRINT;
  85.         errno = LSEPANIC;
  86.         return -1;
  87.     } else {
  88.         if (ls_rcget(lsp, lsp->clspos, lsp->clsrp) == -1) {
  89.             LSEPRINT;
  90.             return -1;
  91.         }
  92.     }
  93.  
  94.     return 0;
  95. }
  96.